#!/usr/bin/perl -w
use strict;
use Data::Dumper;


my $hash_ref = undef;

if($hash_ref){
    print "hash_ref is true!\n";
}


if(keys %$hash_ref){
    print "hash_ref is null!\n";
}
